home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / Labels.mod < prev    next >
Text File  |  1993-08-19  |  509b  |  17 lines
  1.    /* Texts in a column */
  2.    Labels: 
  3.     g. = ''    
  4.      g.1 = 'Open a public screen'
  5.      g.2 = 'Open/close another window'   
  6.      g.3 = 'Put something in it'
  7.      g.4 = 'Clear it'
  8.      g.5 = 'Construct a menu'
  9.      g.6 = 'Create a gadget'
  10.      g.7 = 'Place text'
  11.      g.8 = 'Rectangles various'
  12.      g.9 = 'Quit'
  13.      call SetAPen(HO,1)    
  14.      do g =  1 to arg(1) ; call pat(arg(2),arg(3)+g*arg(4),g.g) ; end
  15.      return
  16.     pat: call Move(HO,arg(1),arg(2)) ; call Text(HO,arg(3)) ; return
  17.